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EDFSTRUCT.SDL;1 
ULE EDFSTRUCT; 
EDFSTRUCT = Structure definitions for EDIT/FDL 
Version *v04-000' 


COPYRIGHT (c) 1978, 1980, 1982, 1984 B 
DIGITAL EQUIPMENT CORPORATION, MAYNARD. MASSACHUSETTS. 
ALL RIGHTS RESERVED. 


THIS SOFTWARE $s FURNISHED were A LICENSE AND MAY BE USED AND ore 
ACCORDANCE THE TERMS OF SUCH LICE 


INC T NOTIC S SOF TW OTH 
COPIES THEREOF MAY NOT BE PROVIDED OR OTHERWISE MADE AVAILABLE TO ANY 
Fuansrekatee NO TITLE TO AND OWNERSHIP OF THE SOFTWARE IS HEREBY 


THE INFORMATION IN THIS SOFTWARE IS SUBJECT TO CHANGE WITHOUT NOTICE 
compokat itn. NOT BE CONSTRUED AS A COMMITMENT BY DIGITAL EQUIPMENT 


DIGITAL ASSUMES NO RESPONSIBILITY FOR THE USE OR RELIABILITY OF ITS 
SOFTWARE ON EQUIPMENT WHICH IS NOT SUPPLIED BY DIGITAL. 


JRSAAAAAAAAHAREREEARAAAEAEAARAAEAAEEA AREA ARERR AAAREAAEA ETEK eee eee es 


FACILITY: EDIT/FOL (EDF) 


ABSTRACT: 


This file contains the SDL source for EDIT/FDL (EDF). 
ENVIRONMENT: 


n/a 
AUTHOR: Ken Henderson CREATION DATE: Sep-1982 
MODIFIED BY: 
v03-003 eee Ken Henderson 8 Sep 1983 
Fixed *’,"' in constant List. 
v03-002 KFHOO002 Ken Henderson 26 Apr 1983 
Added offsets for ADD_KEY, DELETE JKEY 
scripts. 
v03-001 KFHOO01 en Henderson 14 Apr 1983 


Added offsets act SET_FUNCTION, 
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/* GRANULARITY, PROMPTING, RESPONSES, 
/* ANALYSIS, SEGMENTED and OUTPUT. 

/** Non-QTAB offsets, for variables that don't correspond to questions. 
ee 

/** They should be orderred: IDATA, BDATA, RDATA, SDATA types. 


/** (NON-STORAGE) means an identifier just generates a constant, 
/** but will have an array location - which is never accessed. 


/ee 
A xxx HIGH identifiers MUST immediately follow the xxx_LOW identifiers!!! 
ee 


/** IDATA OFFSETS FOLLOW 
#MARKO = 0; 
CONSTANT ( 


mr. /** (NON=STORAGE ) 
ni /** (NON-STORAGE) 


COUNTER #MARK1; 
/** BDATA OFFSETS FOLLOW 
CONSTANT ( 

‘DUMMY’ 

) EQUALS #MARK1+1 

INCREMENT 1 

PREFIX ‘‘EDFS"’ 

COUNTER #MARK2; 
/** RDATA OFFSETS FOLLOW 
CONSTANT ( 


“ADDED FILL", 
“LOAD-FILL™ 


) EQUALS #MARK2+1 
INCREMENT 1 
PREFIX “EDFS' 
COUNTER #MARK3; 
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/** SDATA OFFSETS FOLLOW 
CONSTANT ( 
“PLACE HOLDER" 
Sketeter #MARK3+1 
INCREMENT 


PREF IX NEors™ 
COUNTER #MARK4; 


/** SDATA OFFSETS FOLLOW 
CONSTANT ( 
"DATA FILE anne”. 
“FDL TIT 
"KEY bm nee 
“ANALY 18°" 
“OUTPUT” 


Bh a ag ncaa 


COUNTER #MARKS; 
/** RDATA OFFSETS FOLLOW 
CONSTANT ( 


“DATA_KEY COMP", 
“DATA-RECORD COMP’, 
““INDER_RECORB_COMP" 


) EQUALS #MARKS+1 
INCREMENT 1 
PREFIX "EDFS' 
COUNTER #MARK6; 


/** BDATA OFFSETS FOLLOW 
CONSTANT ( 


**KEY_COMP_WANTED"', 
"REC_ COMP =WANTED®:, 


a ° 
*"ASCENDING_ADDED"’, 
ASCENDING. LOAD", 
ee SPAR", 

‘ ‘CONF FIRM oe 


‘SEGMENTED 
‘GLOBAL_WANTED"’, 
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Jee QTAB equivalent offsets that correspond to actual questions 
/** They should be orderred SDATA, RDATA, BDATA, IDATA types 


/** FUNCTION 


Kk 
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KEY =fiANaes”. 
*“*KEY_DIST 


: “ase /** FUNCTION 


COUNTER #MARK7; 
/** IDATA OFFSETS FOLLOW 
CONSTANT ( 

“CLUSTER, SIZE", 


‘BUCK 
**CARR_CTRL"’ /** QUALIFIER TYPE 


"CURRENT -FUNCT ION’, 
"DESIGN CYC 
“DESIRED FILL", 


“INI TIAL_COUNT_LOW'', 
“INITIAL ~ COUNT — “HIGH, 
"KEY_POSITION'S 
“KEY-LOW'', 
KEYCHIGH, 
SIZE", 
oREY TYPE’ /** QUALIFIER TYPE 
METHOD 
"WAX RECORD SIZE", 
{MEAR RECORD, SIZE", 


*"NUMBER_DUPS™, 
“"NUMBER™RECORDS"’ /** SYNONYM FOR INITIAL COUNT 
; “PROLOGOE VERSION” 


/** QUALIFIER TYPE 
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» €Q SS #MARK7+1 

INCREMENT 1 

Cocate ““EDFS"’ 

COUNTER #MARKB; 

/** Array boundaries definitions 
CONSTANT “EDF SK_SDATASTART" EQUALS #MARK3+1; 
CONSTANT “EDF SK_ SDATAEND'’ EQUALS #MARKS; 
CONSTANT “EDF SK_RDATASTART"’ EQUALS #MARK2+1; 
CONSTANT "EDF SK_RDATAEND"’ EQUALS #MARK6; 
CONSTANT “EDF SK_BDATASTART" EQUALS #MARK1+1; 
CONSTANT “EDF SK_BDATAEND"’ EQUALS #MARK7; 
CONSTANT “EDF SK_IDATASTART" EQUALS #MARKO; 
CONSTANT “EDF SK_IDATAEND"’ EQUALS #MARK8; 
CONSTANT “EDF SK_VDATASTART"’ EQUALS #MARK4+1; 
CONSTANT “EDF SK_VDATAEND"' EQUALS #MARK8B; 
CONSTANT “EDF SK_QTABSTART" EQUALS #MARK4+1; 
CONSTANT “EDF $K_QTABEND"’ EQUALS #MARK8; 
/** Insert_object collison-action definitions 
CONSTANT ( 

"REPLACE OBJ", 

**IGNORE OBJ", 

“AF TER_OBJ"" 

) EQUALS 0 


ERER Anes 1 
PREF IX 


/** Where definitions 
CONSTANT ( 


“IF 4 geryer’. 
-LOGER AREA A’, 


PAUSE™ t 
“SCREEN” 
) EQUALS 0 
INCREMENT 1 
PREFIX ‘"*; 
/** Bucket-weight definitions 
CONSTANT ( 


*““SMALLER_BUFFERS**, 
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“FLATTER_FILES" 
) EQUALS 

INCREMENT 

PREF IX Mors’; 
/** Load-method definitions 
CONSTANT ( 

**FAST_CONVERT" 

tH St CONVERT”, 

) equats +s 

INCREME 

PREF IX Mors"; 
/** Surface-option definitions 
CONSTANT ( 


“FILL SURFACE"’, 
"SIZE“SURFACE"', 


) EQUALS o. 
INCREMENT 
PREF IX rors"; 
/** Current-function definitions 
CONSTANT ( 


Pete 


LS as 
INCREMENT 
PREF IX Mrs" 


/** Set_function definition 
CONSTANT ( 
““SET_ANALYSIS"’, 


M 
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/** Responses definitions 


CONSTANT 


( 
) ‘AUTO’ F 
“MAN 


EQUALS 
INCREMENT 
PREF IX rs; 


/** Prompting definitions 


CONSTANT 


/** Granularity 
FONSTANT 


( 


FULL", 
“BRIEF” 


) EQUALS rs 
INCREMEN 
PREF IX Mors"; 


definitions 


) EQUALS 1") 
INCREMENT 
PREF IX ors"; 


/** Script-option definitions 


CONSTANT 


( 


““ADD_KEY_FDL" 
"DELETE_REY_FOL", 


N 
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*“IDX_DESIGN_FDL"', 
 REODESTONCEDL'" 
“OPTIMIZE PBL F 
"REDESIGN-FDL"', 
“ZERO_SCRIPT 
) EQUALS 0 
INCREMENT 1 
PREFIX "EDFS"’; 
/** Yes-No definitions 
CONSTANT ( 
' io"' 
“ves” 
) EQUALS 0, 
INCREMENT 


PREF IX tors"; 
/** Answer-class definitions 


CONSTANT ( 
“STRING ANSWER", 
REAL ANSWER’ 


LEAN SANSUER"S, 
“INTEGER TANSWER'', 
"KEYWORD "ANSWER" 
NO ANSWER" 


“OBJECT ANSWER" 

) EQUALS 0 
INCREMENT 1 
PREFIX ome TAG er 


/** Equivalences for Design-cycle definitions 


CONSTANT “EDF $K_RS' EQUALS “EDFSK_MEAN RECORD_SIZE" 
CONSTANT “EDF SKIKL" EQUALS ““EDFSK-KEY_SIZE"; ~ 
CONSTANT "EDF $K_KP"" EQUALS "EDF SK-KEY-POSITION''; 
CONSTANT “EDF SKIL" EQUALS ‘EDFSK-INITIAL_COUNT '; 
STAN; EDF SK_BF EQUALS "EDF SK-DESIRED-FILL''; 
CONSTANT “EDF SK_EM"" EQUALS "EDFSK-BUCKET_QEIGHT”; 
CONSTANT EDF SK-RF EQUALS ‘EDF SK-RECORD FORMAT” 
CONSTANT “EDFSK-RC" EQUALS ‘EDF SK-DATA RECORD. COMP"; 
ON “EDF SK-KC™ EQUALS "EDFSK-DATA-KEY, COMP’; 
CONSTANT "EDF SK_OK’ EQUALS ‘EDF SK_KEY_BuP : 
CONSTANT “EDF SK_LM'' EQUALS “EDESKILOAD RE THEO" 
CONSTANT "EDF SK_AR'’ EQUALS ‘EDF SK-ADDED_COUNT i 
CONSTANT SEDE SK Ice EQUALS "EDF SK—INDEX-RECORD_COMP"’; 
CONSTANT EDF SK Ms EQUALS “EDESK WRITE PLOT 
CONSTANT EDF SK-FINIS EQUALS “EDFSK~F INAL DESIGN’ 
CONSTANT “EDF SKPV"’ EQUALS “EDF SK PROLOGUE VERS iON"; 


EDF 


(J 


CONSTANT “EDFSK_KT" EQUALS ‘‘EDFSK_KEY_TYPE"’; 
S The following are used to interface to the EDFSGRAPH routine. 
CONSTANT ( 
LINE 
» SRF_INCREASING 
» SRF DECREASING 
) EQUALS 0 INCREMENT 1 PREFIX “‘EDFS$'' TAG ‘'C’’; 
CONSTANT ( 
BACKGROUND _COLOR 
» DARK_RED 
. MEDIOM_ YELLOW 
» LIGHT_GREEN 
) EQUALS 0 INCREMENT 1 PREFIX “‘EDF$'’ TAG ‘'C’'; 
END_MODULE EDFSTRUCT; 
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NT CORPORATION 


D PROPRIETARY 
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